home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iniacc1a / iniacc~1.cls
Encoding:
Visual Basic class definition  |  1999-08-29  |  1.5 KB  |  42 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "INI"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
  11. Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  12.  
  13. Private INIFileName As String
  14.  
  15. Private Ret As String
  16.  
  17. Public Function ReadINI(Section As String, Key As String) As Variant
  18. Ret = Space$(255)
  19. RetLen = GetPrivateProfileString(Section, Key, "", Ret, Len(Ret), INIFileName)
  20. Ret = Left$(Ret, RetLen)
  21. ReadINI = Ret
  22.  
  23. End Function
  24.  
  25. Public Sub WriteINI(Section As String, Key As String, Text As String)
  26. WritePrivateProfileString Section, Key, Text, INIFileName
  27. End Sub
  28.  
  29. Public Property Get INIfile() As String
  30.     INIfile = INIFileName
  31. End Property
  32.  
  33. Public Property Let INIfile(ByVal vNewValue As String)
  34.     INIFileName = vNewValue
  35. End Property
  36. Public Sub About()
  37.  
  38.     MsgBox "INI Access Class" & Chr(13) & "Copyright ⌐1999 UnpreXisten" & Chr(13) & Chr(13) & "This software is FREEWARE and may only be distributed in its original form", vbInformation, "About"
  39.     
  40. End Sub
  41.  
  42.